home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / obero / oberobje.lha / OberObjects.Def next >
Text File  |  1996-12-15  |  17KB  |  591 lines
  1. DEFINITION OberObjects;
  2.  
  3. (* Created using OD 1.13 *)
  4.  
  5. IMPORT
  6.   Exec,
  7.   Sets,
  8.   Intuition,
  9.   Kernel,
  10.   Utility,
  11.   Graphics,
  12.   InputEvent,
  13.   GadTools,
  14.   Dos,
  15.   Errors,
  16.   Events,
  17.   ExecSupport,
  18.   IntuiUtil,
  19.   Strings,
  20.   KeyMapLib,
  21.   Timer;
  22.  
  23. CONST
  24.  
  25.   Add = 1;
  26.   Change = 3;
  27.   Continue = 1;
  28.   LFALSE = 0;
  29.   LTRUE = 1;
  30.   Pass = 0;
  31.   Remove = 2;
  32.   Stop = 2;
  33.   StopAll = 3;
  34.   bgColor = -2141190091;
  35.   busyPointer = -2141191191;
  36.   drawMode = -2141190090;
  37.   fgColor = -2141190092;
  38.   gadHelp = -2141190182;
  39.   gtExtraFlags = -2141190190;
  40.   gtGadKind = -2141190191;
  41.   gtGadget = -2141190192;
  42.   normalPointer = -2141191192;
  43.   obBase = -2141192192;
  44.   obBottom = -2141192188;
  45.   obBottomFromBottomofParent = -2141192182;
  46.   obBottomFromBottomofPred = -2141192174;
  47.   obBottomFromTopofParent = -2141192188;
  48.   obBottomFromTopofPred = -2141192178;
  49.   obHeight = -2141192186;
  50.   obLeft = -2141192191;
  51.   obLeftFromLeftofParent = -2141192191;
  52.   obLeftFromLeftofPred = -2141192181;
  53.   obLeftFromRightofParent = -2141192185;
  54.   obLeftFromRightofPred = -2141192177;
  55.   obRight = -2141192189;
  56.   obRightFromLeftofParent = -2141192189;
  57.   obRightFromLeftofPred = -2141192180;
  58.   obRightFromRightofParent = -2141192184;
  59.   obRightFromRightofPred = -2141192176;
  60.   obText = -2141192172;
  61.   obTop = -2141192190;
  62.   obTopFromBottomofParent = -2141192183;
  63.   obTopFromBottomofPred = -2141192175;
  64.   obTopFromTopofParent = -2141192190;
  65.   obTopFromTopofPred = -2141192179;
  66.   obWidth = -2141192187;
  67.   oberBarLabel = "????";
  68.  
  69. TYPE
  70.  
  71.   LabelType * = POINTER TO ARRAY OF Exec.STRPTR;
  72.  
  73.   OberCanvas * = POINTER TO OberCanvasDesc;
  74.  
  75.   OberCanvasDesc * = RECORD (OberObjectDesc)
  76.     iObject - : Graphics.RastPortPtr;
  77.     PROCEDURE (ob : OberCanvas) Init
  78.       ( Name : ARRAY OF CHAR;
  79.         tags : ObjTags;
  80.         parent : OberObject );
  81.     PROCEDURE (ob : OberCanvas) ReDisplay;
  82.     PROCEDURE (ob : OberCanvas) SetDimensions
  83.       ( x : INTEGER;
  84.         y : INTEGER;
  85.         w : INTEGER;
  86.         h : INTEGER );
  87.     PROCEDURE (ob : OberCanvas) MoveTo
  88.       ( x : INTEGER;
  89.         y : INTEGER );
  90.     PROCEDURE (ob : OberCanvas) Show;
  91.     PROCEDURE (ob : OberCanvas) Hide;
  92.     PROCEDURE (ob : OberCanvas) Scroll
  93.       ( x : INTEGER;
  94.         y : INTEGER );
  95.     PROCEDURE (ob : OberCanvas) SetFgColor
  96.       ( color : SYSTEM.BYTE );
  97.     PROCEDURE (ob : OberCanvas) SetBgColor
  98.       ( color : SYSTEM.BYTE );
  99.     PROCEDURE (ob : OberCanvas) SetDrawMode
  100.       ( drMode : SYSTEM.BYTESET );
  101.     PROCEDURE (ob : OberCanvas) WriteText
  102.       ( text : ARRAY OF CHAR );
  103.   END;
  104.  
  105.   OberCheckBox * = POINTER TO OberCheckBoxDesc;
  106.  
  107.   OberCheckBoxDesc * = RECORD (OberGadgetDesc)
  108.     PROCEDURE (ob : OberCheckBox) Init
  109.       ( Name : ARRAY OF CHAR;
  110.         tags : ObjTags;
  111.         parent : OberObject );
  112.     PROCEDURE (ob : OberCheckBox) SetState
  113.       ( checked : BOOLEAN );
  114.     PROCEDURE (ob : OberCheckBox) GetState ()
  115.       : BOOLEAN;
  116.   END;
  117.  
  118.   OberCycleGadget * = POINTER TO OberCycleGadgetDesc;
  119.  
  120.   OberCycleGadgetDesc * = RECORD (OberGadgetDesc)
  121.     Labels - : LabelType;
  122.     NumLabels - : INTEGER;
  123.     PROCEDURE (ob : OberCycleGadget) Init
  124.       ( Name : ARRAY OF CHAR;
  125.         tags : ObjTags;
  126.         parent : OberObject );
  127.     PROCEDURE (ob : OberCycleGadget) AddLabel
  128.       ( Label : ARRAY OF CHAR );
  129.     PROCEDURE (ob : OberCycleGadget) SetActive
  130.       ( active : INTEGER );
  131.     PROCEDURE (ob : OberCycleGadget) SetText
  132.       ( Name : ARRAY OF CHAR );
  133.     PROCEDURE (ob : OberCycleGadget) GetActive ()
  134.       : INTEGER;
  135.     PROCEDURE (ob : OberCycleGadget) GetText
  136.       ( VAR Name : ARRAY OF CHAR );
  137.   END;
  138.  
  139.   OberGadget * = POINTER TO OberGadgetDesc;
  140.  
  141.   OberGadgetDesc * = RECORD (OberObjectDesc)
  142.     enabled - : BOOLEAN;
  143.     iObject - : Intuition.ExtGadgetPtr;
  144.     gadText - : POINTER TO ARRAY OF CHAR;
  145.     PROCEDURE (ob : OberGadget) Init
  146.       ( Name : ARRAY OF CHAR;
  147.         tags : ObjTags;
  148.         parent : OberObject );
  149.     PROCEDURE (ob : OberGadget) ReDisplay;
  150.     PROCEDURE (ob : OberGadget) SetAttr
  151.       ( thetag : SYSTEM.LONGWORD;
  152.         thevalue : LONGINT );
  153.     PROCEDURE (ob : OberGadget) GetAttr
  154.       ( thetag : SYSTEM.LONGWORD )
  155.       : LONGINT;
  156.     PROCEDURE (ob : OberGadget) SetText
  157.       ( txt : ARRAY OF CHAR );
  158.     PROCEDURE (ob : OberGadget) GetText
  159.       ( VAR gadText : ARRAY OF CHAR );
  160.     PROCEDURE (ob : OberGadget) SetDimensions
  161.       ( x : INTEGER;
  162.         y : INTEGER;
  163.         w : INTEGER;
  164.         h : INTEGER );
  165.     PROCEDURE (ob : OberGadget) SetCallback
  166.       ( cbp : cbProcType );
  167.     PROCEDURE (ob : OberGadget) SetGadDownCallback
  168.       ( cbp : cbProcType );
  169.     PROCEDURE (ob : OberGadget) SetDblClkCallback
  170.       ( cbp : cbProcType );
  171.     PROCEDURE (ob : OberGadget) SetGadHelpCallback
  172.       ( cbp : cbProcType );
  173.     PROCEDURE (ob : OberGadget) Show;
  174.     PROCEDURE (ob : OberGadget) Hide;
  175.     PROCEDURE (ob : OberGadget) Enable;
  176.     PROCEDURE (ob : OberGadget) Disable;
  177.   END;
  178.  
  179.   OberGraphic * = POINTER TO OberGraphicDesc;
  180.  
  181.   OberGraphicDesc * = RECORD (OberObjectDesc)
  182.   END;
  183.  
  184.   OberGroupBox * = POINTER TO OberGroupBoxDesc;
  185.  
  186.   OberGroupBoxDesc * = RECORD (VirtWindowDesc)
  187.     PROCEDURE (ob : OberGroupBox) Init
  188.       ( Name : ARRAY OF CHAR;
  189.         tags : ObjTags;
  190.         parent : OberObject );
  191.     PROCEDURE (ob : OberGroupBox) Show;
  192.     PROCEDURE (ob : OberGroupBox) Hide;
  193.     PROCEDURE (ob : OberGroupBox) SetDimensions
  194.       ( x : INTEGER;
  195.         y : INTEGER;
  196.         w : INTEGER;
  197.         h : INTEGER );
  198.     PROCEDURE (ob : OberGroupBox) SetText
  199.       ( txt : ARRAY OF CHAR );
  200.   END;
  201.  
  202.   OberIntegerGad * = POINTER TO OberIntegerGadDesc;
  203.  
  204.   OberIntegerGadDesc * = RECORD (OberGadgetDesc)
  205.     PROCEDURE (ob : OberIntegerGad) Init
  206.       ( Name : ARRAY OF CHAR;
  207.         tags : ObjTags;
  208.         parent : OberObject );
  209.   END;
  210.  
  211.   OberListView * = POINTER TO OberListViewDesc;
  212.  
  213.   OberListViewDesc * = RECORD (OberGadgetDesc)
  214.     NumLabels - : INTEGER;
  215.     PROCEDURE (ob : OberListView) Init
  216.       ( Name : ARRAY OF CHAR;
  217.         tags : ObjTags;
  218.         parent : OberObject );
  219.     PROCEDURE (ob : OberListView) AddLabel
  220.       ( Label : ARRAY OF CHAR );
  221.     PROCEDURE (ob : OberListView) SetActive
  222.       ( active : INTEGER );
  223.     PROCEDURE (ob : OberListView) SetText
  224.       ( text : ARRAY OF CHAR );
  225.     PROCEDURE (ob : OberListView) GetActive ()
  226.       : LONGINT;
  227.     PROCEDURE (ob : OberListView) GetText
  228.       ( VAR text : ARRAY OF CHAR );
  229.     PROCEDURE (ob : OberListView) SetReadOnly
  230.       ( IsRO : BOOLEAN );
  231.   END;
  232.  
  233.   OberMenuItem * = POINTER TO OberMenuItemDesc;
  234.  
  235.   OberMenuItemDesc * = RECORD (OberObjectDesc)
  236.     PROCEDURE (ob : OberMenuItem) SetState
  237.       ( checked : BOOLEAN );
  238.     PROCEDURE (ob : OberMenuItem) Enable;
  239.     PROCEDURE (ob : OberMenuItem) Disable;
  240.     PROCEDURE (ob : OberMenuItem) Hide;
  241.     PROCEDURE (ob : OberMenuItem) Show;
  242.   END;
  243.  
  244.   OberObject * = POINTER TO OberObjectDesc;
  245.  
  246.   OberObjectDesc * = RECORD 
  247.     Parent - : OberObject;
  248.     Name - : POINTER TO ARRAY OF CHAR;
  249.     initialized - : BOOLEAN;
  250.     tagList - : ObjTags;
  251.     PROCEDURE (ob : OberObject) Hide;
  252.     PROCEDURE (ob : OberObject) Show;
  253.     PROCEDURE (ob : OberObject) IsVisible ()
  254.       : BOOLEAN;
  255.     PROCEDURE (ob : OberObject) GetText
  256.       ( VAR text : ARRAY OF CHAR );
  257.     PROCEDURE (ob : OberObject) AddToList;
  258.     PROCEDURE (ob : OberObject) RemoveFromList;
  259.     PROCEDURE (ob : OberObject) FindTag
  260.       ( thetag : LONGINT )
  261.       : Utility.TagItemPtr;
  262.     PROCEDURE (ob : OberObject) SetTag
  263.       ( thetag : LONGINT;
  264.         thevalue : SYSTEM.LONGWORD;
  265.         setIfFound : BOOLEAN );
  266.     PROCEDURE (ob : OberObject) GetTagValue
  267.       ( thetag : LONGINT;
  268.         default : SYSTEM.LONGWORD )
  269.       : LONGINT;
  270.     PROCEDURE (ob : OberObject) CopyTag
  271.       ( sourceTag : LONGINT;
  272.         destTag : LONGINT );
  273.     PROCEDURE (ob : OberObject) RemoveTag
  274.       ( thetag : LONGINT );
  275.     PROCEDURE (ob : OberObject) Init
  276.       ( Name : ARRAY OF CHAR;
  277.         tags : ObjTags;
  278.         parent : OberObject );
  279.   END;
  280.  
  281.   OberPaletteGad * = POINTER TO OberPaletteGadDesc;
  282.  
  283.   OberPaletteGadDesc * = RECORD (OberGadgetDesc)
  284.     PROCEDURE (ob : OberPaletteGad) Init
  285.       ( Name : ARRAY OF CHAR;
  286.         tags : ObjTags;
  287.         parent : OberObject );
  288.   END;
  289.  
  290.   OberPort = POINTER TO OberPortDesc;
  291.  
  292.   OberPortDesc = RECORD (Events.GadToolsPortRec)
  293.   END;
  294.  
  295.   OberPushButton * = POINTER TO OberPushButtonDesc;
  296.  
  297.   OberPushButtonDesc * = RECORD (OberGadgetDesc)
  298.     PROCEDURE (ob : OberPushButton) Init
  299.       ( Name : ARRAY OF CHAR;
  300.         tags : ObjTags;
  301.         parent : OberObject );
  302.   END;
  303.  
  304.   OberRKDDesc * = RECORD 
  305.     qualifier - : SYSTEM.WORDSET;
  306.     key - : CHAR;
  307.     PROCEDURE (ob : OberRawKeyDecoder) Init
  308.       ( msg : Intuition.IntuiMessagePtr );
  309.   END;
  310.  
  311.   OberRadioButton * = POINTER TO OberRadioButtonDesc;
  312.  
  313.   OberRadioButtonDesc * = RECORD (OberGadgetDesc)
  314.     Labels - : LabelType;
  315.     NumLabels - : INTEGER;
  316.     PROCEDURE (ob : OberRadioButton) Init
  317.       ( Name : ARRAY OF CHAR;
  318.         tags : ObjTags;
  319.         parent : OberObject );
  320.     PROCEDURE (ob : OberRadioButton) AddLabel
  321.       ( Label : ARRAY OF CHAR );
  322.     PROCEDURE (ob : OberRadioButton) SetCallback
  323.       ( cbp : cbProcType );
  324.     PROCEDURE (ob : OberRadioButton) SetActive
  325.       ( active : INTEGER );
  326.     PROCEDURE (ob : OberRadioButton) SetText
  327.       ( Name : ARRAY OF CHAR );
  328.     PROCEDURE (ob : OberRadioButton) GetActive ()
  329.       : INTEGER;
  330.     PROCEDURE (ob : OberRadioButton) GetText
  331.       ( VAR Name : ARRAY OF CHAR );
  332.   END;
  333.  
  334.   OberRawKeyDecoder * = POINTER TO OberRKDDesc;
  335.  
  336.   OberScreen * = POINTER TO OberScreenDesc;
  337.  
  338.   OberScreenDesc * = RECORD (OberObjectDesc)
  339.     iObject - : Intuition.ScreenPtr;
  340.     Title - : POINTER TO ARRAY OF CHAR;
  341.     PROCEDURE (ob : OberScreen) Init
  342.       ( Name : ARRAY OF CHAR;
  343.         tags : ObjTags;
  344.         parent : OberObject );
  345.   END;
  346.  
  347.   OberScrollerGad * = POINTER TO OberScrollerGadDesc;
  348.  
  349.   OberScrollerGadDesc * = RECORD (OberGadgetDesc)
  350.     PROCEDURE (ob : OberScrollerGad) Init
  351.       ( Name : ARRAY OF CHAR;
  352.         tags : ObjTags;
  353.         parent : OberObject );
  354.   END;
  355.  
  356.   OberSliderGad * = POINTER TO OberSliderGadDesc;
  357.  
  358.   OberSliderGadDesc * = RECORD (OberGadgetDesc)
  359.     PROCEDURE (ob : OberSliderGad) Init
  360.       ( Name : ARRAY OF CHAR;
  361.         tags : ObjTags;
  362.         parent : OberObject );
  363.   END;
  364.  
  365.   OberStaticNumber * = POINTER TO OberStaticNumberDesc;
  366.  
  367.   OberStaticNumberDesc * = RECORD (OberGadgetDesc)
  368.     PROCEDURE (ob : OberStaticNumber) Init
  369.       ( Name : ARRAY OF CHAR;
  370.         tags : ObjTags;
  371.         parent : OberObject );
  372.   END;
  373.  
  374.   OberStaticText * = POINTER TO OberStaticTextDesc;
  375.  
  376.   OberStaticTextDesc * = RECORD (OberGadgetDesc)
  377.     PROCEDURE (ob : OberStaticText) Init
  378.       ( Name : ARRAY OF CHAR;
  379.         tags : ObjTags;
  380.         parent : OberObject );
  381.   END;
  382.  
  383.   OberStringGad * = POINTER TO OberStringGadDesc;
  384.  
  385.   OberStringGadDesc * = RECORD (OberGadgetDesc)
  386.     PROCEDURE (ob : OberStringGad) Init
  387.       ( Name : ARRAY OF CHAR;
  388.         tags : ObjTags;
  389.         parent : OberObject );
  390.   END;
  391.  
  392.   OberWindow * = POINTER TO OberWindowDesc;
  393.  
  394.   OberWindowDesc * = RECORD (VirtWindowDesc)
  395.     iObject - : Intuition.WindowPtr;
  396.     WinsPort - : OberPort;
  397.     gtContext - : Intuition.GadgetPtr;
  398.     LastGadget - : Intuition.GadgetPtr;
  399.     vi - : SYSTEM.ADDRESS;
  400.     NumMenuItems - : INTEGER;
  401.     menuStrip - : Intuition.MenuPtr;
  402.     PROCEDURE (ob : OberWindow) OnCreate;
  403.     PROCEDURE (ob : OberWindow) SwitchHelp
  404.       ( on : BOOLEAN );
  405.     PROCEDURE (ob : OberWindow) Init
  406.       ( Name : ARRAY OF CHAR;
  407.         tags : ObjTags;
  408.         parent : OberObject );
  409.     PROCEDURE (ob : OberWindow) ModifyIDCMP
  410.       ( Method : SHORTINT;
  411.         IDCMP : SET )
  412.       : BOOLEAN;
  413.     PROCEDURE (ob : OberWindow) SetTitle
  414.       ( Title : ARRAY OF CHAR );
  415.     PROCEDURE (ob : OberWindow) SetDimensions
  416.       ( x : INTEGER;
  417.         y : INTEGER;
  418.         w : INTEGER;
  419.         h : INTEGER );
  420.     PROCEDURE (ob : OberWindow) SetMinSize
  421.       ( w : INTEGER;
  422.         h : INTEGER );
  423.     PROCEDURE (ob : OberWindow) SetMaxSize
  424.       ( w : INTEGER;
  425.         h : INTEGER );
  426.     PROCEDURE (ob : OberWindow) Show;
  427.     PROCEDURE (ob : OberWindow) Hide;
  428.     PROCEDURE (ob : OberWindow) FindMenu
  429.       ( Name : ARRAY OF CHAR )
  430.       : OberMenuItem;
  431.     PROCEDURE (ob : OberWindow) AddMenuTitle
  432.       ( menuName : ARRAY OF CHAR;
  433.         menuText : ARRAY OF CHAR );
  434.     PROCEDURE (ob : OberWindow) AddMenuItem
  435.       ( menuName : ARRAY OF CHAR;
  436.         menuText : ARRAY OF CHAR;
  437.         CbProc : cbProcType;
  438.         menuKey : CHAR;
  439.         MutualExclude : SET;
  440.         IsAttr : BOOLEAN );
  441.     PROCEDURE (ob : OberWindow) AddMenuSubItem
  442.       ( menuName : ARRAY OF CHAR;
  443.         menuText : ARRAY OF CHAR;
  444.         CbProc : cbProcType;
  445.         menuKey : CHAR;
  446.         MutualExclude : SET;
  447.         IsAttr : BOOLEAN );
  448.     PROCEDURE (ob : OberWindow) AddMenuBar;
  449.     PROCEDURE (ob : OberWindow) AddMenuBarSub;
  450.     PROCEDURE (ob : OberWindow) CheckMenu
  451.       ( Name : ARRAY OF CHAR );
  452.     PROCEDURE (ob : OberWindow) UnCheckMenu
  453.       ( Name : ARRAY OF CHAR );
  454.     PROCEDURE (ob : OberWindow) EnableMenu
  455.       ( Name : ARRAY OF CHAR );
  456.     PROCEDURE (ob : OberWindow) DisableMenu
  457.       ( Name : ARRAY OF CHAR );
  458.     PROCEDURE (ob : OberWindow) Activate;
  459.     PROCEDURE (ob : OberWindow) SetPointer
  460.       ( pointerType : LONGINT );
  461.     PROCEDURE (ob : OberWindow) SetHelpGroup
  462.       ( win : OberWindow );
  463.     PROCEDURE (ob : OberWindow) SetGadHelpCallback
  464.       ( cbp : cbProcType );
  465.     PROCEDURE (ob : OberWindow) OnSizeVerify
  466.       ( msg : Intuition.IntuiMessagePtr )
  467.       : INTEGER;
  468.     PROCEDURE (ob : OberWindow) OnNewSize
  469.       ( msg : Intuition.IntuiMessagePtr )
  470.       : INTEGER;
  471.     PROCEDURE (ob : OberWindow) OnRefreshWindow
  472.       ( msg : Intuition.IntuiMessagePtr )
  473.       : INTEGER;
  474.     PROCEDURE (ob : OberWindow) OnMouseButtons
  475.       ( msg : Intuition.IntuiMessagePtr )
  476.       : INTEGER;
  477.     PROCEDURE (ob : OberWindow) OnMouseMove
  478.       ( msg : Intuition.IntuiMessagePtr )
  479.       : INTEGER;
  480.     PROCEDURE (ob : OberWindow) OnGadgetDown
  481.       ( msg : Intuition.IntuiMessagePtr )
  482.       : INTEGER;
  483.     PROCEDURE (ob : OberWindow) OnGadgetUp
  484.       ( msg : Intuition.IntuiMessagePtr )
  485.       : INTEGER;
  486.     PROCEDURE (ob : OberWindow) OnReqSet
  487.       ( msg : Intuition.IntuiMessagePtr )
  488.       : INTEGER;
  489.     PROCEDURE (ob : OberWindow) OnMenuPick
  490.       ( msg : Intuition.IntuiMessagePtr )
  491.       : INTEGER;
  492.     PROCEDURE (ob : OberWindow) OnCloseWindow
  493.       ( msg : Intuition.IntuiMessagePtr )
  494.       : INTEGER;
  495.     PROCEDURE (ob : OberWindow) OnRawKey
  496.       ( msg : Intuition.IntuiMessagePtr )
  497.       : INTEGER;
  498.     PROCEDURE (ob : OberWindow) OnReqVerify
  499.       ( msg : Intuition.IntuiMessagePtr )
  500.       : INTEGER;
  501.     PROCEDURE (ob : OberWindow) OnReqClear
  502.       ( msg : Intuition.IntuiMessagePtr )
  503.       : INTEGER;
  504.     PROCEDURE (ob : OberWindow) OnMenuVerify
  505.       ( msg : Intuition.IntuiMessagePtr )
  506.       : INTEGER;
  507.     PROCEDURE (ob : OberWindow) OnNewPrefs
  508.       ( msg : Intuition.IntuiMessagePtr )
  509.       : INTEGER;
  510.     PROCEDURE (ob : OberWindow) OnDiskInserted
  511.       ( msg : Intuition.IntuiMessagePtr )
  512.       : INTEGER;
  513.     PROCEDURE (ob : OberWindow) OnDiskRemoved
  514.       ( msg : Intuition.IntuiMessagePtr )
  515.       : INTEGER;
  516.     PROCEDURE (ob : OberWindow) OnActiveWindow
  517.       ( msg : Intuition.IntuiMessagePtr )
  518.       : INTEGER;
  519.     PROCEDURE (ob : OberWindow) OnInactiveWindow
  520.       ( msg : Intuition.IntuiMessagePtr )
  521.       : INTEGER;
  522.     PROCEDURE (ob : OberWindow) OnDeltaMove
  523.       ( msg : Intuition.IntuiMessagePtr )
  524.       : INTEGER;
  525.     PROCEDURE (ob : OberWindow) OnVanillaKey
  526.       ( msg : Intuition.IntuiMessagePtr )
  527.       : INTEGER;
  528.     PROCEDURE (ob : OberWindow) OnIntuiTicks
  529.       ( msg : Intuition.IntuiMessagePtr )
  530.       : INTEGER;
  531.     PROCEDURE (ob : OberWindow) OnIdcmpUpdate
  532.       ( msg : Intuition.IntuiMessagePtr )
  533.       : INTEGER;
  534.     PROCEDURE (ob : OberWindow) OnMenuHelp
  535.       ( msg : Intuition.IntuiMessagePtr )
  536.       : INTEGER;
  537.     PROCEDURE (ob : OberWindow) OnChangeWindow
  538.       ( msg : Intuition.IntuiMessagePtr )
  539.       : INTEGER;
  540.     PROCEDURE (ob : OberWindow) OnGadgetHelp
  541.       ( msg : Intuition.IntuiMessagePtr )
  542.       : INTEGER;
  543.   END;
  544.  
  545.   ObjTags * = POINTER TO ARRAY OF Utility.TagItem;
  546.  
  547.   ObjectNode * = POINTER TO ObjectNodeDesc;
  548.  
  549.   ObjectNodeDesc * = RECORD 
  550.     Object - : OberObject;
  551.     Children - : ObjectNode;
  552.     Sibling - : ObjectNode;
  553.     PROCEDURE (node : ObjectNode) Find
  554.       ( Name : ARRAY OF CHAR )
  555.       : ObjectNode;
  556.     PROCEDURE (node : ObjectNode) FindObject
  557.       ( ob : OberObject )
  558.       : ObjectNode;
  559.   END;
  560.  
  561.   VirtWindow = POINTER TO VirtWindowDesc;
  562.  
  563.   VirtWindowDesc = RECORD (OberObjectDesc)
  564.     Title - : POINTER TO ARRAY OF CHAR;
  565.     parentWin - : OberWindow;
  566.     PROCEDURE (ob : VirtWindow) RefreshWindow;
  567.     PROCEDURE (ob : VirtWindow) FindGadget
  568.       ( GadId : INTEGER )
  569.       : OberGadget;
  570.   END;
  571.  
  572.   cbProcType * = PROCEDURE
  573.     ( ob : OberObject;
  574.       SpecialCode : INTEGER );
  575.  
  576.  
  577. (* PROCEDURES *)
  578.  
  579. PROCEDURE Clean
  580.   ( VAR rc : LONGINT );
  581. PROCEDURE Do;
  582. PROCEDURE GetObject
  583.   ( Name : ARRAY OF CHAR )
  584.   : OberObject;
  585. PROCEDURE RemoveNamedFromList
  586.   ( Name : ARRAY OF CHAR );
  587. PROCEDURE ReplyMsg
  588.   ( msg : Intuition.IntuiMessagePtr );
  589.  
  590. END OberObjects.
  591.